home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 44 / 044.d81 / text printer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  41 lines
  1. 0 ifa=.thena=1:load"text print.ml.o",8,1
  2. 5 :
  3. 6 rem       alter rom scrolling
  4. 7 :
  5. 10 poke770,131:poke771,164:poke88,.:poke89,192:poke90,.:poke91,192
  6. 20 poke781,33:poke782,.:sys41964:poke88,254:poke89,255:poke90,254:poke91,255
  7. 30 poke781,33:poke782,.:sys41964:poke59639,4:poke1,53
  8. 100 :
  9. 105 rem       setup stuff...
  10. 106 :
  11. 110 poke55,.:poke56,32:clr:q$=chr$(34)
  12. 120 dim fi$(144),ft%(144),nb%(144):co=1
  13. 125 poke53280,.:poke53281,.
  14. 130 print"[147]      [154]insert disk and press space":poke198,.
  15. 140 ifpeek(203)<>60then140
  16. 150 print"[147]      [158]text printer by mike maynard"
  17. 160 print"   [154]reading all "q$"t."q$" [154]and "q$"seq"q$" [154]files..."
  18. 180 :
  19. 185 rem      read the directory
  20. 190 :
  21. 200 open15,8,15,"i0":open8,8,8,"#"
  22. 210 print#15,"u1:"8;0;18;1
  23. 220 sys49152,fi$,ft%,nb%
  24. 230 if (left$(fi$,2)<>"t.") and (ft%<>129) then ok=.:goto240
  25. 235 fi$(co)=fi$:ft%(co)=ft%:nb%(co)=nb%:    co=co+1 : ok=1
  26. 240 print"[154]";:if(ok)thenprint"";
  27. 245 printfi$"                    "
  28. 250 a=peek(2):ifa=.then220
  29. 260 ifa<>255thenprint#15,"u1:"8;0;18;a:print#15,"b-p:"8;0:goto220
  30. 270 close8:close15
  31. 280 :
  32. 285 :
  33. 290 rem    print those files!!
  34. 295 :
  35. 300 for a=1 to co-1
  36. 310 sys 828,8192,fi$(a)
  37. 320 open4,4,7
  38. 330 sys 49418,8192
  39. 340 print#4:close4
  40. 350 next
  41.